﻿Module Module1
    Sub Main()
        For i As Integer = 1 To 15
            Dim Proc As New Process()
            Proc.StartInfo.WorkingDirectory = "..\..\..\MPQClient\Bin\Debug\"
            Proc.StartInfo.FileName = "MPQClient.exe"
            Proc.StartInfo.Arguments = " /s net.tcp://" & My.Computer.Name & ":94/MPQ/Server/ /DEBUG GKQ /u G" & i
            Proc.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
            Proc.Start()
            Threading.Thread.Sleep(3000)
        Next
        For i As Integer = 1 To 10
            Dim Proc As New Process()
            Proc.StartInfo.WorkingDirectory = "..\..\..\MPQClient35\Bin\Debug\"
            Proc.StartInfo.FileName = "MPQClient35.exe"
            Proc.StartInfo.Arguments = " /s " & My.Computer.Name & ":94 /DEBUG GKQ /u 35G" & i
            Proc.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
            Proc.Start()
            Threading.Thread.Sleep(3000)
        Next
        For i As Integer = 1 To 5
            Dim Proc As New Process()
            Proc.StartInfo.WorkingDirectory = "..\..\..\MPQClient\Bin\Debug\"
            Proc.StartInfo.FileName = "MPQClient.exe"
            Proc.StartInfo.Arguments = " /s net.tcp://" & My.Computer.Name & ":94/MPQ/Server/ /DEBUG BQ /u B" & i
            Proc.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
            Proc.Start()
            Threading.Thread.Sleep(3000)
        Next
        For i As Integer = 1 To 5
            Dim Proc As New Process()
            Proc.StartInfo.WorkingDirectory = "..\..\..\MPQClient\Bin\Debug\"
            Proc.StartInfo.FileName = "MPQClient.exe"
            Proc.StartInfo.Arguments = " /s net.tcp://" & My.Computer.Name & ":94/MPQ/Server/ /DEBUG CQ /u C" & i
            Proc.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
            Proc.Start()
            Threading.Thread.Sleep(6000)
        Next
    End Sub

End Module
